home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 126-150 / disk_138 / modulatools / template / test.mod < prev   
Text File  |  1992-05-06  |  519b  |  22 lines
  1. MODULE Test;
  2.  
  3. FROM Template IMPORT CreateScreenWindowAndMenus, DestroyScreenWindowAndMenus,
  4.                      ProcessIntuiMessages, TheScreen, TheWindow, TheMenu;
  5. FROM Storage  IMPORT DestroyHeap;
  6.  
  7.  
  8. VAR
  9.    finished : BOOLEAN;
  10.  
  11.  
  12. BEGIN
  13.    IF ( CreateScreenWindowAndMenus () ) THEN
  14.       finished := FALSE;
  15.       WHILE NOT finished DO
  16.          ProcessIntuiMessages (finished);
  17.       END; (* WHILE NOT finished *)
  18.       DestroyScreenWindowAndMenus;
  19.    END; (* IF CreateScreenWindowAndMenus *)
  20.    DestroyHeap;
  21. END Test.
  22.